﻿Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class DataProvider

    Public Shared Function OpenCn() As OleDbConnection
        Dim Cntr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Jet OLEDB:Database Password=kotinhyeu;"
        Dim Cn As New OleDbConnection(Cntr)
        Cn.Open()
        Return Cn
    End Function
End Class
